home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / Modes / latexMode.tcl < prev    next >
Encoding:
Text File  |  1996-08-15  |  2.0 KB  |  70 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexMode.tcl (called from modes.tcl at startup)
  5. #
  6. #############################################################################
  7. #############################################################################
  8.  
  9. set latexVersion "2e"
  10. catch { enableMenuItem install "LaTeX 2e" off }
  11. catch { enableMenuItem install "LaTeX 2.09" on }
  12.  
  13. set dummyProc(TeX) dummyTeX
  14.  
  15. # Reset the search path so it will be rebuilt the next time it's needed:
  16. set TeXSearchPath {}
  17.  
  18. # Initialize TeX-related application signatures:
  19. foreach app {tex viewDVI printDVI dvips viewPS printPS bibtex makeindex} {
  20.     if { ![info exists ${app}Sig] } {
  21.         set ${app}Sig {}
  22.     }
  23. }
  24.  
  25. # Initialize LaTeX menus:
  26. proc latexMenu {} {}
  27. set latexMenu "･270"
  28. # (other menus initialized in latexMenu.tcl)
  29.  
  30. # Install the short LaTeX menu, by default:
  31. set useShortLaTeXMenu 1
  32.  
  33. set modeMenus(TeX) latexMenu
  34.  
  35. # Global variable for reference completion:
  36. set __wc__insPos -1
  37.  
  38. # Remember, Alpha's mode suffix mechanism is case-sensitive...
  39. addMode TeX dummyTeX {*.tex *.ltx *.dtx *.ins *.cls *.clo *.sty *.log *.aux *.bbl *.idx *.ind *.glo *.gls *.toc *.lof *.lot *.blg *.ilg } latexMenu
  40. addMenu latexMenu
  41.  
  42. # Clean up temporary files:
  43. proc removeTemporaryFiles {} {
  44.     global PREFS
  45.     if { [file exists "$PREFS:tmp"] } {
  46.         foreach f [glob -nocomplain "$PREFS:tmp:*"] {
  47.             message "removing [file tail $f]ﾉ"
  48.             removeFile $f
  49.         }
  50.     }
  51.     message "all temporary files removed"
  52. }
  53. if { $startingUp } { removeTemporaryFiles }
  54.                          
  55. #--------------------------------------------------------------------------
  56. # Event hooks
  57. #--------------------------------------------------------------------------
  58.  
  59. if { [info commands TeXChangeMode] == "" } {
  60.     rename changeMode TeXChangeMode
  61. }
  62. # This is called for all open, saveas, and activate events:
  63. proc changeMode {newMode} {    
  64.     if { $newMode == "TeX" } {
  65.         dummyTeX
  66.         eval [typesetSubmenu]
  67.     }
  68.     TeXChangeMode $newMode
  69. }
  70.